home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Development Tools & Languages / Dylan Related / Thomas 1.1⁄Gambit 2.0 / MacGambit 2.0 interpreter.sea / MacGambit 2.0 interpreter / MacGambit Examples / fact.scm < prev    next >
Encoding:
Text File  |  1992-03-18  |  56 b   |  3 lines  |  [TEXT/gamI]
  1. (define (fact n)
  2.   (if (< n 2) 1 (* (fact (- n 1)) n)))
  3.